home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 February / EnigmA AMIGA RUN 34 (1999)(G.R. Edizioni)(IT)[!][issue 1999-02].iso / earcd / devel / wild / support / table_sincos1616.bas < prev    next >
BASIC Source File  |  1999-01-01  |  256b  |  10 lines
  1.  
  2. WINDOW 1,"SinCos1616.table maker..."
  3. PRINT "1024 angles stored in this table. Offsets: 0=sin 16.16 4=con 16.16"
  4.  
  5. OPEN "Ram:SinCos1616.table" FOR OUTPUT AS 1
  6. FOR i=0 TO 1023
  7.  a=3.1415926*i/512
  8.  PRINT #1,MKL$(SIN(a)*65536);MKL$(COS(a)*65536);
  9. NEXT i
  10. CLOSE 1